home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / Modules / !ZapJRF / Scripts / HTML / Left < prev    next >
Text File  |  2002-05-08  |  413b  |  23 lines
  1. | Left align the current tag !
  2. | If we're inside a tag, move to the end
  3. TMT_IF "INHTMLTAG THEN SEARCHFORWARD "">"""
  4. | If we're at the end of a tag, we'll centre
  5. LEFT
  6. #IfText ">"
  7.  SEARCHBACK "<"
  8.  SEARCHFORWARD "align\|>"
  9.  LEFT
  10.  | Did we find an 'align' tag ?
  11.  #IfText "n"
  12.   | Yes, so let's delete it !
  13.   BLOCKUNTIL " >"
  14.   CUT
  15.  #Else
  16.   INSERT " "
  17.  #EndIf
  18.  INSERT "align=left"
  19.  SEARCHFORWARD ">"
  20. #Else
  21.  RIGHT
  22. #EndIf
  23.